home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / KDISPLAY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-04  |  2.0 KB  |  82 lines
  1. (*----------------------------------------------------------------------*)
  2. (*      Update_Kermit_Display --- Update display of Kermit transfer     *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Update_Kermit_Display;
  6.  
  7. BEGIN (* Update_Kermit_Display *)
  8.  
  9.    IF ( NOT Logging_Out_Server ) THEN
  10.       BEGIN
  11.  
  12.          GoToXY( 25 , 1 );
  13.          IF Sending_File THEN
  14.             WRITE( Packets_Sent : 8 )
  15.          ELSE
  16.             WRITE( Packets_Received : 8 );
  17.  
  18.          GoToXY( 25 , 2 );
  19.          WRITE( Buffer_Num : 8 : 0 );
  20.  
  21.          GoToXY( 25 , 3 );
  22.          WRITE( Packets_Bad : 8 );
  23.  
  24.       END;
  25.  
  26. END   (* Update_Kermit_Display *);
  27.  
  28. (*----------------------------------------------------------------------*)
  29. (*  Display_Kermit_Message --- Display Kermit reception status message  *)
  30. (*----------------------------------------------------------------------*)
  31.  
  32. PROCEDURE Display_Kermit_Message( Status_Text: AnyStr );
  33.  
  34. BEGIN (* Display_Kermit_Message *)
  35.  
  36.    Update_Kermit_Display;
  37.  
  38.    GoToXY( 25 , 5 );
  39.    WRITE( Status_Text );
  40.    ClrEol;
  41.  
  42. END   (* Display_Kermit_Message *);
  43.  
  44. (*----------------------------------------------------------------------*)
  45. (*  Display_Kermit_Init_Params --- Display Kermit init. parameters      *)
  46. (*----------------------------------------------------------------------*)
  47.  
  48. PROCEDURE Display_Kermit_Init_Params;
  49.  
  50. VAR
  51.    Quote_8: CHAR;
  52.  
  53. BEGIN (* Display_Kermit_Init_Params *)
  54.  
  55.    GoToXY( 2 , 7 );
  56.    WRITE('8th bit quoting is ');
  57.  
  58.    IF Sending_File THEN
  59.       Quote_8 := Kermit_Quote_8_Char
  60.    ELSE
  61.       Quote_8 := His_Quote_8_Char;
  62.  
  63.    IF Quoting THEN
  64.       WRITE('ON using <',Quote_8,'>')
  65.    ELSE
  66.       WRITE('OFF');
  67.  
  68.    ClrEol;
  69.  
  70.    GoToXY( 2 , 8 );
  71.    WRITE('Block check is ');
  72.  
  73.    CASE His_Chk_Type OF
  74.       '1':  WRITE('1 character checksum');
  75.       '2':  WRITE('2 character checksum');
  76.       '3':  WRITE('3 character CRC');
  77.    END (* CASE *);
  78.  
  79.    ClrEol;
  80.  
  81. END   (* Display_Kermit_Init_Params *);
  82.